home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.4 / Group1 / Demo8E.exe / 0 / RCDATA / THAZIRFATSSKFORM / THAZIRFATSSKFORM.txt
Text File  |  1998-07-30  |  38KB  |  1,487 lines
  1. object hazirFatSSKForm: ThazirFatSSKForm
  2.   Left = 2
  3.   Top = 12
  4.   Width = 640
  5.   Height = 440
  6.   Caption = 'SSK T∩┐╜P∩┐╜ FATURA D∩┐╜ZENLEME'
  7.   Font.Color = clBlack
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   KeyPreview = True
  12.   Position = poScreenCenter
  13.   OnClose = FormClose
  14.   OnCreate = FormCreate
  15.   OnKeyDown = FormKeyDown
  16.   OnShow = FormShow
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object PanelFat: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 632
  23.     Height = 413
  24.     HelpContext = 136
  25.     Align = alClient
  26.     BevelInner = bvLowered
  27.     BorderWidth = 3
  28.     Color = clNavy
  29.     TabOrder = 0
  30.     object Label4: TLabel
  31.       Left = 195
  32.       Top = 249
  33.       Width = 37
  34.       Height = 12
  35.       Caption = 'Fat. No'
  36.       Font.Color = clWhite
  37.       Font.Height = -11
  38.       Font.Name = 'Arial'
  39.       Font.Style = [fsBold]
  40.       ParentFont = False
  41.     end
  42.     object Label5: TLabel
  43.       Left = 313
  44.       Top = 248
  45.       Width = 54
  46.       Height = 12
  47.       Caption = 'Fat. Tarihi'
  48.       Font.Color = clWhite
  49.       Font.Height = -11
  50.       Font.Name = 'Arial'
  51.       Font.Style = [fsBold]
  52.       ParentFont = False
  53.     end
  54.     object SpeedButton1: TSpeedButton
  55.       Left = 440
  56.       Top = 248
  57.       Width = 21
  58.       Height = 21
  59.       Glyph.Data = {
  60.         4E010000424D4E01000000000000760000002800000012000000120000000100
  61.         040000000000D800000000000000000000000000000010000000000000000000
  62.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  63.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  64.         3333330000003333333333333333330000003338888888888888330000003304
  65.         0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
  66.         000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
  67.         FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
  68.         F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
  69.         000033F7777777777F4833000000330000000000003333000000333333333333
  70.         333333000000333333333333333333000000}
  71.       OnClick = SpeedButton1Click
  72.     end
  73.     object Labelhstad: TLabel
  74.       Left = 5
  75.       Top = 274
  76.       Width = 459
  77.       Height = 13
  78.       Alignment = taCenter
  79.       AutoSize = False
  80.       Caption = 'LabelHSTADI'
  81.       Color = clSilver
  82.       Font.Color = clNavy
  83.       Font.Height = -11
  84.       Font.Name = 'Arial'
  85.       Font.Style = [fsBold]
  86.       ParentColor = False
  87.       ParentFont = False
  88.     end
  89.     object Label1: TLabel
  90.       Left = 5
  91.       Top = 5
  92.       Width = 622
  93.       Height = 14
  94.       Align = alTop
  95.       Alignment = taCenter
  96.       Caption = 'Label1'
  97.       Color = clSilver
  98.       Font.Color = clNavy
  99.       Font.Height = -12
  100.       Font.Name = 'Arial'
  101.       Font.Style = [fsBold]
  102.       ParentColor = False
  103.       ParentFont = False
  104.     end
  105.     object Label3: TLabel
  106.       Left = 12
  107.       Top = 248
  108.       Width = 109
  109.       Height = 14
  110.       Caption = 'Yaz∩┐╜c∩┐╜ Sol Marj∩┐╜ (cm)'
  111.       Font.Color = clWhite
  112.       Font.Height = -11
  113.       Font.Name = 'Arial Tur'
  114.       Font.Style = [fsBold]
  115.       ParentFont = False
  116.     end
  117.     object BitBtn1: TBitBtn
  118.       Left = 512
  119.       Top = 380
  120.       Width = 71
  121.       Height = 25
  122.       Font.Color = clNavy
  123.       Font.Height = -11
  124.       Font.Name = 'Arial'
  125.       Font.Style = [fsBold]
  126.       ParentFont = False
  127.       TabOrder = 9
  128.       Kind = bkClose
  129.     end
  130.     object BitBtnYDEG: TBitBtn
  131.       Left = 472
  132.       Top = 347
  133.       Width = 149
  134.       Height = 23
  135.       HelpContext = 120
  136.       Caption = 'Re∩┐╜.Yeniden De∩┐╜erlendir'
  137.       Font.Color = clNavy
  138.       Font.Height = -11
  139.       Font.Name = 'Arial'
  140.       Font.Style = [fsBold]
  141.       ParentFont = False
  142.       TabOrder = 8
  143.       OnClick = BitBtnYDEGClick
  144.     end
  145.     object BitBtnFATKES: TBitBtn
  146.       Left = 472
  147.       Top = 246
  148.       Width = 149
  149.       Height = 23
  150.       Caption = 'Fatura Ve D∩┐╜k∩┐╜m'
  151.       Font.Color = clNavy
  152.       Font.Height = -11
  153.       Font.Name = 'Arial'
  154.       Font.Style = [fsBold]
  155.       ParentFont = False
  156.       TabOrder = 5
  157.       OnClick = BitBtnFATKESClick
  158.       Glyph.Data = {
  159.         76010000424D7601000000000000760000002800000020000000100000000100
  160.         04000000000000010000130B0000130B00000000000000000000000000000000
  161.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  162.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  163.         3333333333333333FF3333333333333003333333333333377F33333333333307
  164.         733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
  165.         000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
  166.         777077777777777777773CCCCC00000000003777777777777777333330030FFF
  167.         FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
  168.         FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
  169.         0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
  170.         0F03333333337FFF7F7333333333000000333333333377777733}
  171.       NumGlyphs = 2
  172.     end
  173.     object DBGridREF: TDBGrid
  174.       Left = 5
  175.       Top = 19
  176.       Width = 622
  177.       Height = 218
  178.       Align = alTop
  179.       BorderStyle = bsNone
  180.       Color = clGray
  181.       DataSource = RcKopSRC
  182.       Font.Color = clWhite
  183.       Font.Height = -11
  184.       Font.Name = 'Arial'
  185.       Font.Style = [fsBold]
  186.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  187.       ParentFont = False
  188.       ReadOnly = True
  189.       TabOrder = 0
  190.       TitleFont.Color = clBlack
  191.       TitleFont.Height = -11
  192.       TitleFont.Name = 'Arial'
  193.       TitleFont.Style = [fsBold]
  194.     end
  195.     object DBGrid3: TDBGrid
  196.       Left = 4
  197.       Top = 289
  198.       Width = 460
  199.       Height = 115
  200.       Color = clRed
  201.       DataSource = SatisFatSRC
  202.       Font.Color = clWhite
  203.       Font.Height = -11
  204.       Font.Name = 'Arial'
  205.       Font.Style = [fsBold]
  206.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  207.       ParentFont = False
  208.       ReadOnly = True
  209.       TabOrder = 4
  210.       TitleFont.Color = clBlack
  211.       TitleFont.Height = -11
  212.       TitleFont.Name = 'Arial'
  213.       TitleFont.Style = [fsBold]
  214.     end
  215.     object BitBtnYaz: TBitBtn
  216.       Left = 472
  217.       Top = 314
  218.       Width = 149
  219.       Height = 23
  220.       Hint = 'D∩┐╜k∩┐╜m Fontu'
  221.       Caption = 'D∩┐╜k∩┐╜m Fontu Ayar∩┐╜'
  222.       Font.Color = clNavy
  223.       Font.Height = -11
  224.       Font.Name = 'Arial'
  225.       Font.Style = [fsBold]
  226.       ParentFont = False
  227.       ParentShowHint = False
  228.       ShowHint = True
  229.       TabOrder = 7
  230.       OnClick = BitBtnYazClick
  231.       Glyph.Data = {
  232.         76010000424D7601000000000000760000002800000020000000100000000100
  233.         04000000000000010000130B0000130B00000000000000000000000000000000
  234.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  235.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  236.         3333333333333333333333333333333333333FF3FFFFFFF33FFF003000000033
  237.         0000773777777733777703330033033330037FFF77F37F33377F700007330333
  238.         3003777777337FFFF77F303003337000007337F77F3377777773303073333033
  239.         003337F77F3337F377F337007333303300333777733337FF77F3330033333703
  240.         07333377F333377F7733330733333300033333773FF3F3777F33333399393300
  241.         033333337737FF777F333333339993307333333333777FF77333333333999930
  242.         3333333333777737333333333333333333333333333333333333333333333333
  243.         3333333333333333333333333333333333333333333333333333}
  244.       NumGlyphs = 2
  245.     end
  246.     object MaskEdit1: TMaskEdit
  247.       Left = 372
  248.       Top = 245
  249.       Width = 64
  250.       Height = 22
  251.       EditMask = '!90/90/9900;1;_'
  252.       Font.Color = clBlack
  253.       Font.Height = -11
  254.       Font.Name = 'Arial'
  255.       Font.Style = [fsBold]
  256.       MaxLength = 10
  257.       ParentFont = False
  258.       TabOrder = 3
  259.       Text = '  .  .    '
  260.     end
  261.     object Edit1: TMaskEdit
  262.       Left = 237
  263.       Top = 245
  264.       Width = 66
  265.       Height = 22
  266.       EditMask = '!99999999;1;_'
  267.       Font.Color = clBlack
  268.       Font.Height = -11
  269.       Font.Name = 'Arial'
  270.       Font.Style = [fsBold]
  271.       MaxLength = 8
  272.       ParentFont = False
  273.       TabOrder = 2
  274.       Text = '        '
  275.     end
  276.     object BitBtn2: TBitBtn
  277.       Left = 472
  278.       Top = 280
  279.       Width = 149
  280.       Height = 23
  281.       Caption = 'SSK Disketi Haz∩┐╜rla'
  282.       Font.Color = clNavy
  283.       Font.Height = -11
  284.       Font.Name = 'MS Sans Serif'
  285.       Font.Style = [fsBold]
  286.       ParentFont = False
  287.       TabOrder = 6
  288.       OnClick = BitBtn2Click
  289.       Glyph.Data = {
  290.         78010000424D7801000000000000760000002800000020000000100000000100
  291.         04000000000000000000120B0000120B00000000000000000000000000000000
  292.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  293.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  294.         333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
  295.         00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
  296.         00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
  297.         00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
  298.         00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
  299.         00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
  300.         00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
  301.         0003737FFFFFFFFF7F73300999999999003337777777777777330000}
  302.       NumGlyphs = 2
  303.     end
  304.     object SpinEdit1: TSpinEdit
  305.       Left = 125
  306.       Top = 245
  307.       Width = 44
  308.       Height = 23
  309.       Font.Color = clBlack
  310.       Font.Height = -11
  311.       Font.Name = 'Arial Tur'
  312.       Font.Style = [fsBold]
  313.       MaxLength = 25
  314.       MaxValue = 0
  315.       MinValue = 0
  316.       ParentFont = False
  317.       TabOrder = 1
  318.       Value = 0
  319.     end
  320.   end
  321.   object RcKopSRC: TDataSource
  322.     DataSet = RecKopya
  323.     OnDataChange = RcKopSRCDataChange
  324.     Left = 41
  325.     Top = 44
  326.   end
  327.   object SatisFatSRC: TDataSource
  328.     DataSet = SatisFatTab
  329.     Left = 29
  330.     Top = 267
  331.   end
  332.   object SatisFatTab: TTable
  333.     OnCalcFields = SatisFatTabCalcFields
  334.     DatabaseName = 'ECZ'
  335.     IndexFieldNames = 'SATISNO'
  336.     MasterFields = 'SATISNO'
  337.     MasterSource = RcKopSRC
  338.     ReadOnly = True
  339.     TableName = 'satis.db'
  340.     Left = 62
  341.     Top = 269
  342.     object SatisFatTabSATISNO: TFloatField
  343.       FieldName = 'SATISNO'
  344.       Visible = False
  345.     end
  346.     object SatisFatTabSIRANOURUN: TIntegerField
  347.       DisplayLabel = 'SIRA NO'
  348.       DisplayWidth = 7
  349.       FieldName = 'SIRANOURUN'
  350.     end
  351.     object SatisFatTabILACNO: TIntegerField
  352.       Alignment = taLeftJustify
  353.       DisplayLabel = '∩┐╜LA∩┐╜ ADI'
  354.       DisplayWidth = 35
  355.       FieldName = 'ILACNO'
  356.       OnGetText = SatisFatTabILACNOGetText
  357.     end
  358.     object SatisFatTabFIYAT: TCurrencyField
  359.       DisplayLabel = 'F∩┐╜YATI'
  360.       DisplayWidth = 12
  361.       FieldName = 'FIYAT'
  362.     end
  363.     object SatisFatTabMIKTAR: TIntegerField
  364.       DisplayLabel = 'M∩┐╜KTAR'
  365.       DisplayWidth = 7
  366.       FieldName = 'MIKTAR'
  367.     end
  368.     object SatisFatTabKDV: TFloatField
  369.       DisplayWidth = 6
  370.       FieldName = 'KDV'
  371.       DisplayFormat = '%0.00'
  372.     end
  373.     object SatisFatTabRECETETIP: TStringField
  374.       FieldName = 'RECETETIP'
  375.       Visible = False
  376.       Size = 1
  377.     end
  378.     object SatisFatTabKDVtut: TCurrencyField
  379.       Calculated = True
  380.       FieldName = 'KDVtut'
  381.       Visible = False
  382.     end
  383.   end
  384.   object hastaAlTab: TTable
  385.     DatabaseName = 'ECZ'
  386.     IndexFieldNames = 'HASTANO'
  387.     TableName = 'HASTA.DB'
  388.     Left = 48
  389.     Top = 141
  390.     object hastaAlTabHASTANO: TIntegerField
  391.       FieldName = 'HASTANO'
  392.     end
  393.     object hastaAlTabHASTADI: TStringField
  394.       FieldName = 'HASTADI'
  395.       Size = 18
  396.     end
  397.     object hastaAlTabHASTASOYAD: TStringField
  398.       FieldName = 'HASTASOYAD'
  399.       Size = 18
  400.     end
  401.   end
  402.   object ilacTutTable: TTable
  403.     DatabaseName = 'ECZ'
  404.     ReadOnly = True
  405.     TableName = 'URUN.DB'
  406.     Left = 97
  407.     Top = 271
  408.     object ilacTutTableILACNO: TIntegerField
  409.       FieldName = 'ILACNO'
  410.     end
  411.     object ilacTutTableILACAD: TStringField
  412.       FieldName = 'ILACAD'
  413.       Required = True
  414.       Size = 36
  415.     end
  416.     object ilacTutTableILACKOD: TStringField
  417.       FieldName = 'ILACKOD'
  418.       OnGetText = ilacTutTableILACKODGetText
  419.       Size = 13
  420.     end
  421.   end
  422.   object RecKopya: TTable
  423.     AfterOpen = RecKopyaAfterOpen
  424.     BeforeDelete = RecKopyaBeforeDelete
  425.     DatabaseName = 'ECZ'
  426.     TableName = 'FATSSK.DB'
  427.     Left = 14
  428.     Top = 44
  429.     object RecKopyaRS_AD: TStringField
  430.       DisplayLabel = 'Sigortal∩┐╜ Ad∩┐╜'
  431.       FieldName = 'RS_AD'
  432.       Size = 18
  433.     end
  434.     object RecKopyaRS_SOYAD: TStringField
  435.       DisplayLabel = 'Sigortal∩┐╜ Soyad∩┐╜'
  436.       FieldName = 'RS_SOYAD'
  437.       Size = 18
  438.     end
  439.     object RecKopyaSICILNO: TStringField
  440.       DisplayLabel = 'Sicil No'
  441.       FieldName = 'SICILNO'
  442.       Size = 13
  443.     end
  444.     object RecKopyaHASTANO: TIntegerField
  445.       FieldName = 'HASTANO'
  446.       Visible = False
  447.     end
  448.     object RecKopyaKURUMKOD: TStringField
  449.       FieldName = 'KURUMKOD'
  450.       Visible = False
  451.       Size = 11
  452.     end
  453.     object RecKopyaRECTARIH: TDateField
  454.       DisplayLabel = 'Re∩┐╜.Trh.'
  455.       DisplayWidth = 8
  456.       FieldName = 'RECTARIH'
  457.       DisplayFormat = 'dd/mm/yy'
  458.     end
  459.     object RecKopyaALTARIH: TDateField
  460.       DisplayLabel = '∩┐╜∩┐╜l.Trh.'
  461.       DisplayWidth = 8
  462.       FieldName = 'ALTARIH'
  463.       DisplayFormat = 'dd/mm/yy'
  464.     end
  465.     object RecKopyaFATARIH: TDateField
  466.       DisplayLabel = 'Fat.Trh.'
  467.       DisplayWidth = 8
  468.       FieldName = 'FATARIH'
  469.       Visible = False
  470.       DisplayFormat = 'dd/mm/yy'
  471.     end
  472.     object RecKopyaFATNO: TFloatField
  473.       FieldName = 'FATNO'
  474.       Visible = False
  475.     end
  476.     object RecKopyaBAS1: TStringField
  477.       FieldName = 'BAS1'
  478.       Visible = False
  479.       Size = 17
  480.     end
  481.     object RecKopyaBAS2: TStringField
  482.       FieldName = 'BAS2'
  483.       Visible = False
  484.       Size = 17
  485.     end
  486.     object RecKopyaBAS3: TStringField
  487.       FieldName = 'BAS3'
  488.       Visible = False
  489.       Size = 17
  490.     end
  491.     object RecKopyaBRUTN: TCurrencyField
  492.       FieldName = 'BRUTN'
  493.       Visible = False
  494.     end
  495.     object RecKopyaBRUTO: TCurrencyField
  496.       FieldName = 'BRUTO'
  497.       Visible = False
  498.     end
  499.     object RecKopyaBRUTI: TCurrencyField
  500.       FieldName = 'BRUTI'
  501.       Visible = False
  502.     end
  503.     object RecKopyaNET: TCurrencyField
  504.       FieldName = 'NET'
  505.       DisplayFormat = '0,000'
  506.     end
  507.     object RecKopyaHASTAKATPAY: TCurrencyField
  508.       DisplayLabel = 'Hst. Kat.Pay'
  509.       FieldName = 'HASTAKATPAY'
  510.       DisplayFormat = '0,000'
  511.     end
  512.     object RecKopyaKDVA: TCurrencyField
  513.       FieldName = 'KDVA'
  514.       Visible = False
  515.     end
  516.     object RecKopyaKDVB: TCurrencyField
  517.       FieldName = 'KDVB'
  518.       Visible = False
  519.     end
  520.     object RecKopyaKDVC: TCurrencyField
  521.       FieldName = 'KDVC'
  522.       Visible = False
  523.     end
  524.     object RecKopyaDURUM_KOD: TStringField
  525.       FieldName = 'DURUM_KOD'
  526.       OnGetText = RecKopyaDURUM_KODGetText
  527.       Size = 1
  528.     end
  529.     object RecKopyaYAKINLIK_KOD: TStringField
  530.       DisplayLabel = 'Yak∩┐╜nl∩┐╜∩┐╜∩┐╜'
  531.       FieldName = 'YAKINLIK_KOD'
  532.       OnGetText = RecKopyaYAKINLIK_KODGetText
  533.       Size = 1
  534.     end
  535.     object RecKopyaFATURANO: TStringField
  536.       DisplayLabel = 'Fatura No'
  537.       FieldName = 'FATURANO'
  538.       Visible = False
  539.       Size = 11
  540.     end
  541.     object RecKopyaTAHSIS_DOSNO: TStringField
  542.       FieldName = 'TAHSIS_DOSNO'
  543.       Visible = False
  544.       Size = 11
  545.     end
  546.     object RecKopyaMEMUNITNO: TStringField
  547.       FieldName = 'MEMUNITNO'
  548.       Visible = False
  549.       Size = 8
  550.     end
  551.     object RecKopyaDRKOD: TIntegerField
  552.       FieldName = 'DRKOD'
  553.       Visible = False
  554.     end
  555.     object RecKopyaDRUNITNO: TStringField
  556.       FieldName = 'DRUNITNO'
  557.       Visible = False
  558.       Size = 8
  559.     end
  560.     object RecKopyaSERINO: TStringField
  561.       FieldName = 'SERINO'
  562.       Visible = False
  563.       Size = 10
  564.     end
  565.     object RecKopyaSATISNO: TFloatField
  566.       DisplayLabel = 'Sat∩┐╜∩┐╜ No'
  567.       DisplayWidth = 7
  568.       FieldName = 'SATISNO'
  569.     end
  570.   end
  571.   object QTOP: TQuery
  572.     OnCalcFields = QTOPCalcFields
  573.     DatabaseName = 'ECZ'
  574.     SQL.Strings = (
  575.       'SELECT '
  576.       'SUM(BRUTI),'
  577.       'SUM(BRUTO),'
  578.       'SUM(BRUTN),'
  579.       'AVG(NET),'
  580.       'COUNT(NET)'
  581.       'FROM TOPSSK')
  582.     Left = 112
  583.     Top = 360
  584.     object QTOPCOUNTOFNET: TIntegerField
  585.       FieldName = 'COUNT OF NET'
  586.     end
  587.     object QTOPSUMofBRUTI: TCurrencyField
  588.       DisplayWidth = 12
  589.       FieldName = 'SUM of BRUTI'
  590.       Visible = False
  591.     end
  592.     object QTOPSUMofBRUTO: TCurrencyField
  593.       DisplayWidth = 13
  594.       FieldName = 'SUM of BRUTO'
  595.       Visible = False
  596.     end
  597.     object QTOPSUMofBRUTN: TCurrencyField
  598.       DisplayLabel = 'Br∩┐╜t Toplam'
  599.       DisplayWidth = 17
  600.       FieldName = 'SUM of BRUTN'
  601.     end
  602.     object QTOPARAN: TCurrencyField
  603.       Calculated = True
  604.       DisplayLabel = 'Indirim'
  605.       DisplayWidth = 12
  606.       FieldName = 'ARAN'
  607.     end
  608.     object QTOPARAI: TCurrencyField
  609.       Calculated = True
  610.       DisplayWidth = 10
  611.       FieldName = 'ARAI'
  612.       Visible = False
  613.     end
  614.     object QTOPARAO: TCurrencyField
  615.       Calculated = True
  616.       DisplayWidth = 10
  617.       FieldName = 'ARAO'
  618.       Visible = False
  619.     end
  620.     object QTOPHKPN: TCurrencyField
  621.       Calculated = True
  622.       DisplayLabel = 'Hst.Kat.Pay∩┐╜'
  623.       DisplayWidth = 12
  624.       FieldName = 'HKPN'
  625.     end
  626.     object QTOPHKPI: TCurrencyField
  627.       Calculated = True
  628.       DisplayWidth = 10
  629.       FieldName = 'HKPI'
  630.       Visible = False
  631.     end
  632.     object QTOPHKPO: TCurrencyField
  633.       Calculated = True
  634.       FieldName = 'HKPO'
  635.     end
  636.     object QTOPTopNet: TCurrencyField
  637.       Calculated = True
  638.       DisplayLabel = 'Net Toplam'
  639.       DisplayWidth = 22
  640.       FieldName = 'TopNet'
  641.     end
  642.     object QTOPAVERAGEofNET: TCurrencyField
  643.       FieldName = 'AVERAGE of NET'
  644.     end
  645.   end
  646.   object IlacFiyatTab: TTable
  647.     DatabaseName = 'ECZ'
  648.     IndexFieldNames = 'ILACNO'
  649.     ReadOnly = True
  650.     TableName = 'URUN.DB'
  651.     Left = 488
  652.     Top = 164
  653.     object IlacFiyatTabILACNO: TIntegerField
  654.       FieldName = 'ILACNO'
  655.     end
  656.     object IlacFiyatTabFIYAT: TCurrencyField
  657.       FieldName = 'FIYAT'
  658.     end
  659.   end
  660.   object FatKesTable: TTable
  661.     BeforePost = FatKesTableBeforePost
  662.     AfterPost = FatKesTableAfterPost
  663.     DatabaseName = 'ECZ'
  664.     IndexFieldNames = 'FATNO'
  665.     TableName = 'FATURA.DB'
  666.     Left = 433
  667.     Top = 223
  668.     object FatKesTableFATNO: TFloatField
  669.       FieldName = 'FATNO'
  670.     end
  671.     object FatKesTableFATURANO: TStringField
  672.       FieldName = 'FATURANO'
  673.       Size = 15
  674.     end
  675.     object FatKesTableKRMKOD: TStringField
  676.       FieldName = 'KRMKOD'
  677.       Size = 11
  678.     end
  679.     object FatKesTableKRMAD: TStringField
  680.       FieldName = 'KRMAD'
  681.       Size = 36
  682.     end
  683.     object FatKesTableADR1: TStringField
  684.       FieldName = 'ADR1'
  685.       Size = 31
  686.     end
  687.     object FatKesTableADR2: TStringField
  688.       FieldName = 'ADR2'
  689.       Size = 31
  690.     end
  691.     object FatKesTableADR3: TStringField
  692.       FieldName = 'ADR3'
  693.       Size = 31
  694.     end
  695.     object FatKesTableVERGIDAIRE: TStringField
  696.       FieldName = 'VERGIDAIRE'
  697.       Size = 17
  698.     end
  699.     object FatKesTableVERGINO: TStringField
  700.       FieldName = 'VERGINO'
  701.       Size = 14
  702.     end
  703.     object FatKesTableFATARIH: TDateField
  704.       FieldName = 'FATARIH'
  705.     end
  706.     object FatKesTableRCTOPSAYISI: TIntegerField
  707.       FieldName = 'RCTOPSAYISI'
  708.     end
  709.     object FatKesTableBRUT: TCurrencyField
  710.       FieldName = 'BRUT'
  711.     end
  712.     object FatKesTableTOPKDV: TCurrencyField
  713.       FieldName = 'TOPKDV'
  714.     end
  715.     object FatKesTableINORAN1: TFloatField
  716.       FieldName = 'INORAN1'
  717.     end
  718.     object FatKesTableINORAN2: TFloatField
  719.       FieldName = 'INORAN2'
  720.     end
  721.     object FatKesTableTENZIL1: TCurrencyField
  722.       FieldName = 'TENZIL1'
  723.     end
  724.     object FatKesTableTENZIL2: TCurrencyField
  725.       FieldName = 'TENZIL2'
  726.     end
  727.     object FatKesTableKDV1: TFloatField
  728.       FieldName = 'KDV1'
  729.     end
  730.     object FatKesTableKDV2: TFloatField
  731.       FieldName = 'KDV2'
  732.     end
  733.     object FatKesTableKDV3: TFloatField
  734.       FieldName = 'KDV3'
  735.     end
  736.     object FatKesTableNET: TCurrencyField
  737.       FieldName = 'NET'
  738.     end
  739.     object FatKesTableKES: TBooleanField
  740.       FieldName = 'KES'
  741.     end
  742.     object FatKesTableFAT_GRB: TSmallintField
  743.       FieldName = 'FAT_GRB'
  744.     end
  745.   end
  746.   object QReceFatVer: TQuery
  747.     DatabaseName = 'ECZ'
  748.     DataSource = DS_QprSSK
  749.     Params.Data = {
  750.       0100060003666E6F00060800000000000000000000000766617475726E6F0001
  751.       010000000003747268000B080000000000000000000000046E65746900070800
  752.       0000000000000000000005686B70736900070800000000000000000000000753
  753.       415449534E4F0006080000000000000000000000}
  754.     SQL.Strings = (
  755.       'UPDATE RECETE'
  756.       'SET FATNO=:fno,'
  757.       'FATURANO=:faturno,'
  758.       'FATARIH=:trh,'
  759.       'NET=:neti,'
  760.       'HASTAKATPAY=:hkpsi'
  761.       'WHERE (SATISNO=:SATISNO)')
  762.     Left = 248
  763.     Top = 200
  764.   end
  765.   object FatKayit: TTable
  766.     DatabaseName = 'ECZ'
  767.     TableName = 'FATKAYIT.DB'
  768.     Left = 216
  769.     Top = 200
  770.     object FatKayitNEWFATNO: TFloatField
  771.       FieldName = 'NEWFATNO'
  772.     end
  773.     object FatKayitFATNOKESILEN: TStringField
  774.       FieldName = 'FATNOKESILEN'
  775.       Size = 11
  776.     end
  777.   end
  778.   object PrintDialog1: TPrintDialog
  779.     Left = 432
  780.     Top = 376
  781.   end
  782.   object KurFatTab: TTable
  783.     DatabaseName = 'ECZ'
  784.     TableName = 'KRMLAR.DB'
  785.     Left = 457
  786.     Top = 191
  787.     object KurFatTabKOD: TStringField
  788.       FieldName = 'KOD'
  789.       Required = True
  790.       Size = 11
  791.     end
  792.     object KurFatTabAD: TStringField
  793.       FieldName = 'AD'
  794.       Required = True
  795.       Size = 36
  796.     end
  797.     object KurFatTabADR1: TStringField
  798.       FieldName = 'ADR1'
  799.       Size = 31
  800.     end
  801.     object KurFatTabADR2: TStringField
  802.       FieldName = 'ADR2'
  803.       Size = 31
  804.     end
  805.     object KurFatTabADR3: TStringField
  806.       FieldName = 'ADR3'
  807.       Size = 31
  808.     end
  809.     object KurFatTabVERGIDAIRE: TStringField
  810.       FieldName = 'VERGIDAIRE'
  811.       Size = 17
  812.     end
  813.     object KurFatTabVERGINO: TStringField
  814.       FieldName = 'VERGINO'
  815.       Size = 13
  816.     end
  817.     object KurFatTabILACLARDAKURUM: TFloatField
  818.       FieldName = 'ILACLARDAKURUM'
  819.     end
  820.     object KurFatTabOZELKATILIMKURUM: TFloatField
  821.       FieldName = 'OZELKATILIMKURUM'
  822.     end
  823.     object KurFatTabILACBERABERKURUM: TFloatField
  824.       FieldName = 'ILACBERABERKURUM'
  825.     end
  826.     object KurFatTabILACLARDACALISAN: TFloatField
  827.       FieldName = 'ILACLARDACALISAN'
  828.     end
  829.     object KurFatTabOZELKATILIMCALISAN: TFloatField
  830.       FieldName = 'OZELKATILIMCALISAN'
  831.     end
  832.     object KurFatTabILACBERABERCALISAN: TFloatField
  833.       FieldName = 'ILACBERABERCALISAN'
  834.     end
  835.     object KurFatTabILACLARDARAPYAT: TFloatField
  836.       FieldName = 'ILACLARDARAPYAT'
  837.     end
  838.     object KurFatTabOZELKATILIMRAPYAT: TFloatField
  839.       FieldName = 'OZELKATILIMRAPYAT'
  840.     end
  841.     object KurFatTabILACBERABERRAPYAT: TFloatField
  842.       FieldName = 'ILACBERABERRAPYAT'
  843.     end
  844.     object KurFatTabILACLARDAEMEKLI: TFloatField
  845.       FieldName = 'ILACLARDAEMEKLI'
  846.     end
  847.     object KurFatTabOZELKATILIMEMEKLI: TFloatField
  848.       FieldName = 'OZELKATILIMEMEKLI'
  849.     end
  850.     object KurFatTabILACBERABEREMEKLI: TFloatField
  851.       FieldName = 'ILACBERABEREMEKLI'
  852.     end
  853.     object KurFatTabBORC: TCurrencyField
  854.       FieldName = 'BORC'
  855.     end
  856.     object KurFatTabFATYUVAR: TIntegerField
  857.       FieldName = 'FATYUVAR'
  858.     end
  859.     object KurFatTabETIKET1: TStringField
  860.       FieldName = 'ETIKET1'
  861.       Size = 17
  862.     end
  863.     object KurFatTabETIKET2: TStringField
  864.       FieldName = 'ETIKET2'
  865.       Size = 17
  866.     end
  867.     object KurFatTabETIKET3: TStringField
  868.       FieldName = 'ETIKET3'
  869.       Size = 17
  870.     end
  871.     object KurFatTabHSP_ISKON: TStringField
  872.       FieldName = 'HSP_ISKON'
  873.       Size = 1
  874.     end
  875.   end
  876.   object QTOPSRC: TDataSource
  877.     DataSet = QTOP
  878.     Left = 145
  879.     Top = 364
  880.   end
  881.   object FontDialog1: TFontDialog
  882.     Font.Color = clBlack
  883.     Font.Height = -11
  884.     Font.Name = 'Courier New Tur'
  885.     Font.Style = []
  886.     Device = fdBoth
  887.     MinFontSize = 0
  888.     MaxFontSize = 0
  889.     Left = 433
  890.     Top = 343
  891.   end
  892.   object EczTab: TTable
  893.     DatabaseName = 'ECZ'
  894.     ReadOnly = True
  895.     TableName = 'EKIM.DB'
  896.     Left = 49
  897.     Top = 7
  898.     object EczTabADI: TStringField
  899.       FieldName = 'ADI'
  900.       Size = 36
  901.     end
  902.     object EczTabEADI: TStringField
  903.       FieldName = 'EADI'
  904.       Size = 35
  905.     end
  906.     object EczTabADR1: TStringField
  907.       FieldName = 'ADR1'
  908.     end
  909.     object EczTabADR2: TStringField
  910.       FieldName = 'ADR2'
  911.     end
  912.     object EczTabADR3: TStringField
  913.       FieldName = 'ADR3'
  914.     end
  915.     object EczTabTLF: TStringField
  916.       FieldName = 'TLF'
  917.       Size = 11
  918.     end
  919.     object EczTabECZKODU: TSmallintField
  920.       FieldName = 'ECZKODU'
  921.     end
  922.     object EczTabILCE_KOD: TSmallintField
  923.       FieldName = 'ILCE_KOD'
  924.     end
  925.     object EczTabIL_KOD: TSmallintField
  926.       FieldName = 'IL_KOD'
  927.     end
  928.     object EczTabMERKEZ_KOD: TSmallintField
  929.       FieldName = 'MERKEZ_KOD'
  930.     end
  931.     object EczTabMESULAD: TStringField
  932.       FieldName = 'MESULAD'
  933.       Size = 36
  934.     end
  935.   end
  936.   object xyFat: TTable
  937.     AfterOpen = xyFatAfterOpen
  938.     DatabaseName = 'ECZ'
  939.     ReadOnly = True
  940.     TableName = 'KOORFAT.DB'
  941.     Left = 376
  942.     Top = 288
  943.     object xyFatSAYFA_S: TSmallintField
  944.       FieldName = 'SAYFA_S'
  945.     end
  946.     object xyFatSAYFA_U: TSmallintField
  947.       FieldName = 'SAYFA_U'
  948.     end
  949.     object xyFatKR_S: TSmallintField
  950.       FieldName = 'KR_S'
  951.     end
  952.     object xyFatKR_U: TSmallintField
  953.       FieldName = 'KR_U'
  954.     end
  955.     object xyFatADR1_S: TSmallintField
  956.       FieldName = 'ADR1_S'
  957.     end
  958.     object xyFatADR1_U: TSmallintField
  959.       FieldName = 'ADR1_U'
  960.     end
  961.     object xyFatADR2_S: TSmallintField
  962.       FieldName = 'ADR2_S'
  963.     end
  964.     object xyFatADR2_U: TSmallintField
  965.       FieldName = 'ADR2_U'
  966.     end
  967.     object xyFatADR3_S: TSmallintField
  968.       FieldName = 'ADR3_S'
  969.     end
  970.     object xyFatADR3_U: TSmallintField
  971.       FieldName = 'ADR3_U'
  972.     end
  973.     object xyFatVERD_S: TSmallintField
  974.       FieldName = 'VERD_S'
  975.     end
  976.     object xyFatVERD_U: TSmallintField
  977.       FieldName = 'VERD_U'
  978.     end
  979.     object xyFatVERNO_S: TSmallintField
  980.       FieldName = 'VERNO_S'
  981.     end
  982.     object xyFatVERNO_U: TSmallintField
  983.       FieldName = 'VERNO_U'
  984.     end
  985.     object xyFatTRH_S: TSmallintField
  986.       FieldName = 'TRH_S'
  987.     end
  988.     object xyFatTRH_U: TSmallintField
  989.       FieldName = 'TRH_U'
  990.     end
  991.     object xyFatSUTB_S: TSmallintField
  992.       FieldName = 'SUTB_S'
  993.     end
  994.     object xyFatSUTB_U: TSmallintField
  995.       FieldName = 'SUTB_U'
  996.     end
  997.     object xyFatSIRA_U: TSmallintField
  998.       FieldName = 'SIRA_U'
  999.     end
  1000.     object xyFatADETR_U: TSmallintField
  1001.       FieldName = 'ADETR_U'
  1002.     end
  1003.     object xyFatTOP1_U: TSmallintField
  1004.       FieldName = 'TOP1_U'
  1005.     end
  1006.     object xyFatTOP2_U: TSmallintField
  1007.       FieldName = 'TOP2_U'
  1008.     end
  1009.     object xyFatTOP3_U: TSmallintField
  1010.       FieldName = 'TOP3_U'
  1011.     end
  1012.     object xyFatYAZI_S: TSmallintField
  1013.       FieldName = 'YAZI_S'
  1014.     end
  1015.     object xyFatYAZI_U: TSmallintField
  1016.       FieldName = 'YAZI_U'
  1017.     end
  1018.     object xyFatBAS1_U: TSmallintField
  1019.       FieldName = 'BAS1_U'
  1020.     end
  1021.     object xyFatBAS2_U: TSmallintField
  1022.       FieldName = 'BAS2_U'
  1023.     end
  1024.     object xyFatBAS3_U: TSmallintField
  1025.       FieldName = 'BAS3_U'
  1026.     end
  1027.   end
  1028.   object QKDV: TQuery
  1029.     OnCalcFields = QKDVCalcFields
  1030.     DatabaseName = 'ECZ'
  1031.     SQL.Strings = (
  1032.       'SELECT'
  1033.       'SUM(TOPSSK.KDVA),'
  1034.       'SUM(TOPSSK.KDVB),'
  1035.       'SUM(TOPSSK.KDVC)'
  1036.       'FROM TOPSSK')
  1037.     Left = 16
  1038.     Top = 144
  1039.     object QKDVSUMofKDVA: TCurrencyField
  1040.       FieldName = 'SUM of KDVA'
  1041.     end
  1042.     object QKDVSUMofKDVB: TCurrencyField
  1043.       FieldName = 'SUM of KDVB'
  1044.     end
  1045.     object QKDVSUMofKDVC: TCurrencyField
  1046.       FieldName = 'SUM of KDVC'
  1047.     end
  1048.     object QKDVtopkdv: TCurrencyField
  1049.       Calculated = True
  1050.       FieldName = 'topkdv'
  1051.     end
  1052.   end
  1053.   object SayfaTAB: TTable
  1054.     DatabaseName = 'ECZ'
  1055.     ReadOnly = True
  1056.     TableName = 'SAYFA.DB'
  1057.     Left = 424
  1058.     Top = 288
  1059.     object SayfaTABFONTADI: TStringField
  1060.       FieldName = 'FONTADI'
  1061.       Size = 30
  1062.     end
  1063.     object SayfaTABFONTSTYLE: TStringField
  1064.       FieldName = 'FONTSTYLE'
  1065.       Size = 40
  1066.     end
  1067.     object SayfaTABFONTSIZE: TSmallintField
  1068.       FieldName = 'FONTSIZE'
  1069.     end
  1070.     object SayfaTABFONTRENK: TStringField
  1071.       FieldName = 'FONTRENK'
  1072.       Size = 25
  1073.     end
  1074.     object SayfaTABPRBICIMI: TSmallintField
  1075.       FieldName = 'PRBICIMI'
  1076.     end
  1077.     object SayfaTABSAYFAGEN: TSmallintField
  1078.       FieldName = 'SAYFAGEN'
  1079.     end
  1080.     object SayfaTABSAYFAYUK: TSmallintField
  1081.       FieldName = 'SAYFAYUK'
  1082.     end
  1083.     object SayfaTABSAYFAISIM: TStringField
  1084.       FieldName = 'SAYFAISIM'
  1085.       Size = 50
  1086.     end
  1087.   end
  1088.   object FontDialogR: TFontDialog
  1089.     Font.Color = clBlack
  1090.     Font.Height = -11
  1091.     Font.Name = 'Courier New Tur'
  1092.     Font.Style = []
  1093.     Device = fdBoth
  1094.     MinFontSize = 0
  1095.     MaxFontSize = 0
  1096.     Options = [fdEffects, fdFixedPitchOnly]
  1097.     Left = 408
  1098.     Top = 312
  1099.   end
  1100.   object KDVTab: TTable
  1101.     DatabaseName = 'ECZ'
  1102.     TableName = 'KDV.DB'
  1103.     Left = 78
  1104.     Top = 140
  1105.     object KDVTabKDV1: TFloatField
  1106.       FieldName = 'KDV1'
  1107.     end
  1108.     object KDVTabKDV2: TFloatField
  1109.       FieldName = 'KDV2'
  1110.     end
  1111.     object KDVTabKDV3: TFloatField
  1112.       FieldName = 'KDV3'
  1113.     end
  1114.   end
  1115.   object hrkTab: TTable
  1116.     DatabaseName = 'ECZ'
  1117.     IndexFieldNames = 'ALSATNO;ALSAT'
  1118.     TableName = 'HAREKET.DB'
  1119.     Left = 185
  1120.     Top = 63
  1121.     object hrkTabHAREKNO: TFloatField
  1122.       FieldName = 'HAREKNO'
  1123.     end
  1124.     object hrkTabTUR: TStringField
  1125.       FieldName = 'TUR'
  1126.       Size = 1
  1127.     end
  1128.     object hrkTabCARIKOD: TStringField
  1129.       FieldName = 'CARIKOD'
  1130.       Size = 11
  1131.     end
  1132.     object hrkTabBORC: TCurrencyField
  1133.       FieldName = 'BORC'
  1134.     end
  1135.     object hrkTabALSATNO: TFloatField
  1136.       FieldName = 'ALSATNO'
  1137.     end
  1138.     object hrkTabALSAT: TStringField
  1139.       FieldName = 'ALSAT'
  1140.       Size = 1
  1141.     end
  1142.     object hrkTabTARIH: TDateField
  1143.       FieldName = 'TARIH'
  1144.     end
  1145.     object hrkTabBILGI: TStringField
  1146.       FieldName = 'BILGI'
  1147.       Size = 36
  1148.     end
  1149.     object hrkTabNIHAI: TSmallintField
  1150.       FieldName = 'NIHAI'
  1151.     end
  1152.   end
  1153.   object HrkNoAl: TTable
  1154.     DatabaseName = 'ECZ'
  1155.     TableName = 'HRKNOAL.DB'
  1156.     Left = 185
  1157.     Top = 95
  1158.     object HrkNoAlHRKNO: TFloatField
  1159.       FieldName = 'HRKNO'
  1160.     end
  1161.   end
  1162.   object prosesTab: TTable
  1163.     DatabaseName = 'ECZ'
  1164.     TableName = 'PROSES.DB'
  1165.     Left = 568
  1166.     Top = 168
  1167.     object prosesTabTARIH: TDateTimeField
  1168.       FieldName = 'TARIH'
  1169.     end
  1170.     object prosesTabACIKLA: TStringField
  1171.       FieldName = 'ACIKLA'
  1172.       Size = 36
  1173.     end
  1174.     object prosesTabISLETNO: TFloatField
  1175.       FieldName = 'ISLETNO'
  1176.     end
  1177.     object prosesTabTUTAR: TCurrencyField
  1178.       FieldName = 'TUTAR'
  1179.     end
  1180.     object prosesTabISLETIPI: TStringField
  1181.       FieldName = 'ISLETIPI'
  1182.       Size = 15
  1183.     end
  1184.   end
  1185.   object QRecCik: TQuery
  1186.     DatabaseName = 'ECZ'
  1187.     DataSource = RcKopSRC
  1188.     Params.Data = {010001000753415449534E4F00000000}
  1189.     SQL.Strings = (
  1190.       'UPDATE RECETE'
  1191.       'SET FATNO=NULL,'
  1192.       'FATURANO=NULL,'
  1193.       'FATARIH=NULL'
  1194.       'WHERE (SATISNO=:SATISNO)')
  1195.     Left = 16
  1196.     Top = 80
  1197.   end
  1198.   object QPrFatRec: TQuery
  1199.     OnCalcFields = QPrFatRecCalcFields
  1200.     DatabaseName = 'ECZ'
  1201.     SQL.Strings = (
  1202.       'SELECT'
  1203.       'FATSSK.RECTARIH,'
  1204.       'FATSSK.FATARIH,'
  1205.       'FATSSK.FATURANO,'
  1206.       'FATSSK.ALTARIH,'
  1207.       'FATSSK.YAKINLIK_KOD,'
  1208.       'FATSSK.SATISNO,'
  1209.       'FATSSK.BRUTO,'
  1210.       'FATSSK.BRUTI,'
  1211.       'FATSSK.BRUTN,'
  1212.       'FATSSK.KDVA,'
  1213.       'FATSSK.KDVB,'
  1214.       'FATSSK.KDVC,'
  1215.       'FATSSK.SICILNO,'
  1216.       'FATSSK.RS_AD,'
  1217.       'FATSSK.RS_SOYAD,'
  1218.       'FATSSK.TAHSIS_DOSNO,'
  1219.       'FATSSK.BAS1,'
  1220.       'FATSSK.BAS2,'
  1221.       'FATSSK.BAS3,'
  1222.       'FATSSK.NET,'
  1223.       'FATSSK.MEMUNITNO,'
  1224.       'FATSSK.SERINO,'
  1225.       'FATSSK.DRKOD,'
  1226.       'FATSSK.DRUNITNO'
  1227.       'FROM FATSSK'
  1228.       'WHERE (DURUM_KOD='#39'1'#39') AND (YAKINLIK_KOD<>'#39'0'#39')'
  1229.       'ORDER BY ALTARIH')
  1230.     Left = 24
  1231.     Top = 352
  1232.     object QPrFatRecRECTARIH: TDateField
  1233.       FieldName = 'RECTARIH'
  1234.     end
  1235.     object QPrFatRecALTARIH: TDateField
  1236.       FieldName = 'ALTARIH'
  1237.     end
  1238.     object QPrFatRecYAKINLIK_KOD: TStringField
  1239.       FieldName = 'YAKINLIK_KOD'
  1240.       Size = 1
  1241.     end
  1242.     object QPrFatRecSATISNO: TFloatField
  1243.       FieldName = 'SATISNO'
  1244.     end
  1245.     object QPrFatRecBRUTO: TCurrencyField
  1246.       FieldName = 'BRUTO'
  1247.     end
  1248.     object QPrFatRecBRUTI: TCurrencyField
  1249.       FieldName = 'BRUTI'
  1250.     end
  1251.     object QPrFatRecBRUTN: TCurrencyField
  1252.       FieldName = 'BRUTN'
  1253.     end
  1254.     object QPrFatRecKDVA: TCurrencyField
  1255.       FieldName = 'KDVA'
  1256.     end
  1257.     object QPrFatRecKDVB: TCurrencyField
  1258.       FieldName = 'KDVB'
  1259.     end
  1260.     object QPrFatRecKDVC: TCurrencyField
  1261.       FieldName = 'KDVC'
  1262.     end
  1263.     object QPrFatRecSICILNO: TStringField
  1264.       FieldName = 'SICILNO'
  1265.       Size = 13
  1266.     end
  1267.     object QPrFatRecNET: TCurrencyField
  1268.       Calculated = True
  1269.       FieldName = 'NET'
  1270.     end
  1271.     object QPrFatRecRS_AD: TStringField
  1272.       FieldName = 'RS_AD'
  1273.       Size = 18
  1274.     end
  1275.     object QPrFatRecRS_SOYAD: TStringField
  1276.       FieldName = 'RS_SOYAD'
  1277.       Size = 18
  1278.     end
  1279.     object QPrFatRechkpN: TCurrencyField
  1280.       Calculated = True
  1281.       FieldName = 'hkpN'
  1282.     end
  1283.     object QPrFatRechkpI: TCurrencyField
  1284.       Calculated = True
  1285.       FieldName = 'hkpI'
  1286.     end
  1287.     object QPrFatRechkpO: TCurrencyField
  1288.       Calculated = True
  1289.       FieldName = 'hkpO'
  1290.     end
  1291.     object QPrFatRecHASTAKATPAY: TCurrencyField
  1292.       Calculated = True
  1293.       FieldName = 'HASTAKATPAY'
  1294.     end
  1295.     object QPrFatRecBAS1: TStringField
  1296.       FieldName = 'BAS1'
  1297.       Size = 17
  1298.     end
  1299.     object QPrFatRecBAS2: TStringField
  1300.       FieldName = 'BAS2'
  1301.       Size = 17
  1302.     end
  1303.     object QPrFatRecBAS3: TStringField
  1304.       FieldName = 'BAS3'
  1305.       Size = 17
  1306.     end
  1307.     object QPrFatRecFATARIH: TDateField
  1308.       FieldName = 'FATARIH'
  1309.     end
  1310.     object QPrFatRecFATURANO: TStringField
  1311.       FieldName = 'FATURANO'
  1312.       Size = 11
  1313.     end
  1314.     object QPrFatRecyuzdeI: TFloatField
  1315.       Calculated = True
  1316.       FieldName = 'yuzdeI'
  1317.     end
  1318.     object QPrFatRecyuzdeN: TFloatField
  1319.       Calculated = True
  1320.       FieldName = 'yuzdeN'
  1321.     end
  1322.     object QPrFatRecyuzdeO: TFloatField
  1323.       Calculated = True
  1324.       FieldName = 'yuzdeO'
  1325.     end
  1326.     object QPrFatRecTAHSIS_DOSNO: TStringField
  1327.       FieldName = 'TAHSIS_DOSNO'
  1328.       Size = 11
  1329.     end
  1330.     object QPrFatRecMEMUNITNO: TStringField
  1331.       FieldName = 'MEMUNITNO'
  1332.       Size = 8
  1333.     end
  1334.     object QPrFatRecindirN: TCurrencyField
  1335.       Calculated = True
  1336.       FieldName = 'indirN'
  1337.     end
  1338.     object QPrFatRecindirI: TCurrencyField
  1339.       Calculated = True
  1340.       FieldName = 'indirI'
  1341.     end
  1342.     object QPrFatRecindirO: TCurrencyField
  1343.       Calculated = True
  1344.       FieldName = 'indirO'
  1345.     end
  1346.     object QPrFatRecDRKOD: TIntegerField
  1347.       FieldName = 'DRKOD'
  1348.     end
  1349.     object QPrFatRecDRUNITNO: TStringField
  1350.       FieldName = 'DRUNITNO'
  1351.       Size = 8
  1352.     end
  1353.     object QPrFatRecYAKINKIM: TStringField
  1354.       Calculated = True
  1355.       FieldName = 'YAKINKIM'
  1356.       Size = 12
  1357.     end
  1358.     object QPrFatRecSERINO: TStringField
  1359.       FieldName = 'SERINO'
  1360.       Size = 10
  1361.     end
  1362.   end
  1363.   object BatchMove1: TBatchMove
  1364.     Destination = TopSSKTab
  1365.     Mappings.Strings = (
  1366.       'SATISNO=SATISNO'
  1367.       'BRUTN=BRUTN'
  1368.       'BRUTI=BRUTI'
  1369.       'BRUTO=BRUTO'
  1370.       'KDVA=KDVA'
  1371.       'KDVB=KDVB'
  1372.       'KDVC=KDVC'
  1373.       'NET=NET')
  1374.     Mode = batCopy
  1375.     Source = QPrFatRec
  1376.     Left = 48
  1377.     Top = 352
  1378.   end
  1379.   object TopSSKTab: TTable
  1380.     DatabaseName = 'ECZ'
  1381.     TableName = 'TOPSSK.DB'
  1382.     Left = 80
  1383.     Top = 352
  1384.   end
  1385.   object DS_QprSSK: TDataSource
  1386.     DataSet = QPrFatRec
  1387.     Left = 8
  1388.     Top = 368
  1389.   end
  1390.   object QTOP_ILAC: TQuery
  1391.     DatabaseName = 'ECZ'
  1392.     SQL.Strings = (
  1393.       'SELECT '
  1394.       'SUM(RECSSK_A.KUTUSAYISI),'
  1395.       'COUNT(RECSSK_A.KUTUSAYISI)'
  1396.       'FROM RECSSK_A,TOPSSK'
  1397.       'WHERE (TOPSSK.SATISNO= RECSSK_A.SATISNO)')
  1398.     Left = 128
  1399.     Top = 328
  1400.     object QTOP_ILACSUMofKUTUSAYISI: TFloatField
  1401.       FieldName = 'SUM of KUTUSAYISI'
  1402.     end
  1403.     object QTOP_ILACCOUNTOFKUTUSAYISI: TIntegerField
  1404.       FieldName = 'COUNT OF KUTUSAYISI'
  1405.     end
  1406.   end
  1407.   object DrBakTab: TTable
  1408.     DatabaseName = 'ECZ'
  1409.     ReadOnly = True
  1410.     TableName = 'DR.DB'
  1411.     Left = 168
  1412.     Top = 288
  1413.     object DrBakTabDRKOD: TIntegerField
  1414.       FieldName = 'DRKOD'
  1415.     end
  1416.     object DrBakTabDRAD: TStringField
  1417.       FieldName = 'DRAD'
  1418.       Size = 18
  1419.     end
  1420.     object DrBakTabDRSOYAD: TStringField
  1421.       FieldName = 'DRSOYAD'
  1422.       Size = 18
  1423.     end
  1424.   end
  1425.   object T_RECSSK_A: TTable
  1426.     DatabaseName = 'ECZ'
  1427.     IndexFieldNames = 'SATISNO'
  1428.     MasterFields = 'SATISNO'
  1429.     MasterSource = DS_QprSSK
  1430.     TableName = 'RECSSK_A.DB'
  1431.     Left = 24
  1432.     Top = 320
  1433.     object T_RECSSK_ASATISNO: TFloatField
  1434.       FieldName = 'SATISNO'
  1435.     end
  1436.     object T_RECSSK_AILACNO: TIntegerField
  1437.       FieldName = 'ILACNO'
  1438.     end
  1439.     object T_RECSSK_AKUTUSAYISI: TSmallintField
  1440.       FieldName = 'KUTUSAYISI'
  1441.     end
  1442.     object T_RECSSK_ABIRKUL_ALMIK: TStringField
  1443.       FieldName = 'BIRKUL_ALMIK'
  1444.       Size = 3
  1445.     end
  1446.   end
  1447.   object QRecFup: TQuery
  1448.     DatabaseName = 'ECZ'
  1449.     Params.Data = {0100010006466174754E6F0006080000000000000000000000}
  1450.     SQL.Strings = (
  1451.       'UPDATE RECETE'
  1452.       'SET FATNO=NULL,'
  1453.       'FATURANO=NULL,'
  1454.       'FATARIH=NULL'
  1455.       'WHERE (RECETE.FATNO=:FatuNo)')
  1456.     Left = 144
  1457.     Top = 224
  1458.   end
  1459.   object FontTab: TTable
  1460.     DatabaseName = 'ECZ'
  1461.     TableName = 'FONT.DB'
  1462.     Left = 536
  1463.     Top = 320
  1464.     object FontTabBIRIM: TStringField
  1465.       FieldName = 'BIRIM'
  1466.       Size = 9
  1467.     end
  1468.     object FontTabFONTADI: TStringField
  1469.       FieldName = 'FONTADI'
  1470.       Size = 35
  1471.     end
  1472.     object FontTabFONTSIZE: TSmallintField
  1473.       FieldName = 'FONTSIZE'
  1474.     end
  1475.     object FontTabCOLOR: TIntegerField
  1476.       FieldName = 'COLOR'
  1477.     end
  1478.     object FontTabSTYLE: TStringField
  1479.       FieldName = 'STYLE'
  1480.       Size = 1
  1481.     end
  1482.     object FontTabMARJIN: TSmallintField
  1483.       FieldName = 'MARJIN'
  1484.     end
  1485.   end
  1486. end
  1487.